﻿Imports System
Imports System.Collections

Public Class UsuarioRolBE
#Region "Campos y Propiedades"
    Private _IdUsuario As Integer
    Private _IdRol As Integer
    Private _FechaCreacion As DateTime
    Private _Nombre As String
    Private _Login As String
    Private _EstadoDescripcion As String

    Public Property EstadoDescripcion() As String
        Get
            Return _EstadoDescripcion
        End Get
        Set(ByVal value As String)
            _EstadoDescripcion = value
        End Set
    End Property

    Public Property Login() As String
        Get
            Return _Login
        End Get
        Set(ByVal value As String)
            _Login = value
        End Set
    End Property

    Public Property Nombre() As String
        Get
            Return _Nombre
        End Get
        Set(ByVal value As String)
            _Nombre = value
        End Set
    End Property

    Public Property IdUsuario() As Integer
        Get
            Return _IdUsuario
        End Get
        Set(ByVal value As Integer)
            _IdUsuario = value
        End Set
    End Property

    Public Property IdRol() As Integer
        Get
            Return _IdRol
        End Get
        Set(ByVal value As Integer)
            _IdRol = value
        End Set
    End Property

    Public Property FechaCreacion() As DateTime
        Get
            Return _FechaCreacion
        End Get
        Set(ByVal value As DateTime)
            _FechaCreacion = value
        End Set
    End Property


#End Region

#Region "Constructores"

    Public Sub New()

    End Sub

    Public Sub New(ByVal IdUsuario As Integer, ByVal IdRol As Integer, ByVal FechaCreacion As DateTime)
        Me._IdUsuario = IdUsuario
        Me._IdRol = IdRol
        Me._FechaCreacion = FechaCreacion
    End Sub
#End Region
End Class

#Region "UsuarioRolCollection"
Public Class UsuarioRolBECollection
    Inherits CollectionBase

    Default Public Property Item(ByVal index As Integer) As UsuarioRolBE
        Get
            Return CType(List(index), UsuarioRolBE)
        End Get
        Set(ByVal value As UsuarioRolBE)
            List(index) = value
        End Set
    End Property

    Public Function Add(ByVal value As UsuarioRolBE) As Integer
        Return (List.Add(value))
    End Function

    Public Function IndexOf(ByVal value As UsuarioRolBE) As Integer
        Return (List.IndexOf(value))
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal value As UsuarioRolBE)
        List.Insert(index, value)
    End Sub

    Public Sub Remove(ByVal value As UsuarioRolBE)
        List.Remove(value)
    End Sub

    Public Function Contains(ByVal value As UsuarioRolBE) As Boolean
        Return (List.Contains(value))
    End Function
End Class
#End Region



